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1. ABSTRACT 

The Memory Address Test checks the memory system of the PDP-15 to ensure 
that all memory locations not occupied by the program in a given 4K memory 
stack can be uniquely addressed. It does this by writing the address of a 
memory location into itself and checking to see that it is there. The 
complement of the address is also written to ensure that all bits of a word 
can be accessed. Checks are also made to ensure that only one memory 
location is written into whenever memory is addressed, and that cores 
of different memory locations are not shorted together inside the memory 
stack. Errors are indicated to the operator via the teleprinter. 

2. REQUIREMENTS 
Equipment 

Standard PDP-15 Computer 
Storage 

The program uses all of 4K memory for the program or as a test are. The 
program occupies memory from location 07200 to 07770 and tests all locations 
below 07200. 

3. LOADING PROCEDURE 
Method 

Put HRI tape of program in reader (High speed, if available). 

Set ADDRESS SWITCHES to 07200 ; the BANK MODE switch to a 1 . 

Depress I/O RESET. 

Depress and release READ IN key. 

4. STARTING PROCEDURE 
4. 1 Control Switch Settings 

The following is a table of accumulator switch settings and their action on the 
program . 



AC Switch 


Set As 


Action 





1 


Halt on error 







Don't halt on error 


1 


1 


Don't print errors 







Print errors 


2 


1 


Ring bell on error 







Ring bell after N passes 



AC Switch Set- As Action 



3 1 Loop on current number 

(address or complement) 


4 1 Loop on current location 


5 1 Loop on current test 


6 1 Skip Ts in O's test (Test 4) 


7 1 Halt after completing all tests 

Switch 3 operates only with the first test, switch 4 with first and 
fourth, 3 has presence over 4 (in first test), and 4 over 5 (in first 
and fourth tests). N is an arbitrary number (initially 200000g) for 
the first and fourth tests, and 4„ for the second and third. It may be 
changed at the operator's discretion by modifying the contents of 
locations 07202 and 07200 respectively to the appropriate LAW-N 
instruction. 

4.2 Starting Address 

The starting address of the program is 07200. The restart addresses 
are 07200, 07257, 07310, and 07353 (see listing). 

4.3 Program and/or Operator Action 

Set ADDRESS SWITCHES to 07200. 

Set ACCUMULATOR SWITCHES to desired positions (see Section 4.1). 
Normal setting is 500000. 

Depress I/O RESET. 

Depress START. 

5- OPERATING PROCEDURE 

5. 1 Operational Switch Settings 
See Section 4.1. 

5.2 Program and/or Operation Action 

a . To put the program in the 'SCOPE mode, the ACCUMULATOR 
SWITCHES should be set to 260000 (don't halt, don't print, bell 
after N passes, loop on current number, loop on current location). 



b. To test an individual location (first test), store the address to be tested, 
in location 07756 (POINT) and restart the computer at location 07211 
(FlRST+7) to store the address in itself, or location 07225 (SECOND) 

to store the complement (I's) in the address. ACCUMULATOR SWITCHES 
should be set to 260000 (see a). 

c. To run the individual location test (whole first test), restart the computer 
at location 07200 (FlRST-2) with AC Switches 3 and 4 a and 5 a 1 . 

d. To narrow the first test to less than all of memory not occupied by the 
program, place the new upper limit in location 07762 (UPLIM), then 
start the computer at location 07200 (FIRST-2). 

e. To tes t ai I of memory in the forward direction only, restart the computer 
at location 07257 (THIRD) with AC switch 5=1. 

f. To test all of memory in the reverse direction only, restart the computer 
at location 07310 (FIFTH) with AC switch 5=1. 

g. To narrow the second and third tests to less than all of memory not 
occupied by the program, place the new upper limit in location 
07763 (UPLIMl), then restart at the appropriate address for the 
particular test. Checks will still be made starting from location 
00000 up to the limit for the forward test, or from the limit down 
to location 000000 for the reverse test. 

h. To write I's into a particular memory location (fourth test) store the 
address to contain all I's in location 07755 (PNTRl) and restart the 
computer at location 07360 ( SEVENH+5) with AC switch 4=1. 

i. To narrow the fourth test to less than oil of memory not occupied by the 

program, place the new upper limit in location 07762 (UPLIM), then 
start the computer at the appropriate starting address. Checks will 
still be made starting from location 00000 up to the limit. 

j. To run the Write Ts in a Field of O's test (fourth test), restart the 
computer at location 07353 (SEVENH) with AC switch 5 = 1. 

6. ERRORS 

Unless AC switch 1 is a 1, all errors will be printed on the teleprinter. 

6.1 Error Halts and Description 

There is only one error halt in the program at location 07503. This halt will 
occur anytime there is an error; there is no useful information in the AC. The 
computer will halt at location 07451 if all tests are not repeated. 



6.2 Error Recovery 



6.3 



If AC switch 0=1, the computer will halt on an error. To recover and repeat 
the failure, reset AC switches to 5 as necessary (see Section 4.1), and then 
depress CONTINUE. 

To test a particular location, see Section 5.2. 

Error Switch Hierarchy 



C tBROB ENTRY J 




RfTuRN TO \ 

MaiN PROGRAM ^ 

CHEC ^OR REPEAT 

OF ERROR , 
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6.4 Error Typeout Exam ples 

6.4.1 Individual Location Test 



ADDRESS 
001234 



GOOD 
001234 



BAD 
001230 



The above example shows that location 1234 dropped bit 15 when its 
ADDRESS was written in it. 



6.4.2 Forward Write-Reod and Reverse Complement Write-Read Tests (both typeouts 

are the same) 

Forward Write-Read Test 

ADDRESS GOOD BAD 

001234 001234 003234 

The above example shows that location 1234 contained 3234 when it should 
have contained 001234. This may have been due to the "picking up" bit 7 
in the memory buffer register when addressing location 0001234, or it may 
have been due to "double addressing" (addressing location 001234 when the 
memory address register contains 001234 and 003234). 

6.4.3 Write I's in a Field of O's Test 
WRITE ONES IN A FIELD OF ZEROES 



ADDRESS 


GOOD 


BAD 


001234 


000000 


000004 


001235 


000000 


000004 



The above examples shows that location 01234 contained 000004 when it 
should have contained 000000. This may have been due to bit 15 of location 
01234 being shorted to bit 15 of location 01234, 01235. This same error 
may have caused location 01235 to be in error. If location 07764 (PNTRl) 
contained 01235 at the first error and 01234 at the second error, this is 
probably true. 

7. EX ECUTION TIME 

Tests 1, 2 and 3 - insignificant 
Test 4-7 minutes 

8. PROGRAM DESCRIPTION 

There are four basic parts to the program. The first tests each memory 
location, not occupied by the program, to assure that all bits of each may 
be accessed. It does this by first writing the address of a location in itself, 
and then checking to see if it was properly written. The I's complement 
of the address is then written into the same location and checked, to assure 
that all bits of a memory location may be written and read. The second 
portion writes sequential addresses into their respective memory locations 
in the forward direction for all of memory not occupied by the program, and 
then each location is checked in the forward direction to assure that it 
contains its own address. The third portion writes the complement of each 
address not occupied by the program into sequential memory locations 
respectively in the reverse direction (from the highest location down 



to the lowest) and then checks each of the locations in the reverse direction 
to ensure that it contains its respective address complemented. 

The fourth portion of the test writes in all memory locations not occupied 
by the program, and then writes all I's in one memory location. All of the 
memory locations are then checked to assure that they contain 0, except 
the one location containing all I's. 

8. 1 Individual Location Test 



a. The first function performed is that of initialization. Several loop 
counters and message header locations are initialized. 

b. An interna! pointer for the program is set to to indicate the first 
location to be tested is location 0. 

c. The number which is in the interna! pointer is then stored in the 
memory location specified by the pointer and then the memory location 
is checked to see the correct number has been stored. An error 
causes the typeout subroutine to be called. 

d. A check is then made to see if this portion of the test (current 
number) should be repeated (switch 3). If so, the program goes to (c) . 
If not, the program goes to (e) . 

e. The number in the internal pointer is obtained, complemented and 
stored in the memory location specified by the pointer and then the 
location is checked to see the correct number has been stored. An 
error causes the typeout subroutine to be called. 

f . A check is made to sae if this portion (number complemented) of the 
test (current number) should be repeated (switch 3). If so, the program 
goes to (e) . If not, the program goes to (g) . 

g. A check is made to see if the current location should be tested again 
(switch 4) and if so, the program goes to (c) . !f not, the number in 

the internal pointer is incremented and the program goes to (c) 
until ail locations have been tested. 

h. A check is then performed to see if the whole test should be repeated 
(switch 5). If so, the program goes to (b). If not, the program goes 
on to the next portion. 

8.2 Forward Write-Read Test 



a. The first function performed is that of initialization. Several message 
header locations are initialized. 

b. An internal pointer for the program is initialized to to indicate the 
first location to be tested is location 0. 



c. The number which ii in the internal pointer is then stored in the memory 
location specified by the pointer. 

d. The pointer is then incremented and (c) is repeated until oil memory 
locations have had their addresses stored in them. 

e. The internal pointer is then set back to 0. 

f . The number which has been stored in the location specified by the 
pointer is obtained and checked to see that it is correct. 

g. The pointer is then incremented and (f) is repeated until oil memory 
locations have been checked. Any error causes typeout on the 
teleprinter. 

h. A check is then made to see if this test should be repeated (switch 5). 
If so, the program goes to (b) . If not, the program goes on to the 
next portion. 

8.3 Reverse - Complement Write-Read T est 

a. The first function performed is that of initialization. Several 
message header locations are initialized. 

b. An internal pointer for the program is initialized to the first location 
under the program (07177). 

c. The number which is in the internal pointer is obtained, complemented 
(I's) and then stored in the memory location specified by the pointer. 

d. The pointer is then decremented (1 is subtracted from it) and (c) is 
repeated until all memory locations have had the complement addresses 
stored in them. 

e. The internal pointer is then set back to 07177. 

f . The number which has been stored in the location specified by the 
pointer is obtained and checked to see that it is correct. 

g. The pointer is then decremented and (f) is repeated until all memory 
locations have been checked. Any error causes typeout on the 
teleprinter. 

h. A check is then made to see if this test should be repeated (switch 5) . 
If so, the program goes to (b). If not, the program goes to (i) . 

i. A check is then made to see if the next test should be skipped 

(switch 6). If so, the program goes to 8.1 (a). If not, the computer 
goes to 8.4 (a). 



8.4 Write Ts in a Field of O's Test 

a. The first function performed is that of initialization. Several 
message header locations are initialized. 

b. The all I's pointer is set to 0, 

c. All of memory tested is then cleared. 

d. All I's is then stored in the location pointed toby the all I's pointer 

e. A memory pointer is then set to 00000. 

f . The contents of the memory pointer is then checked against the 
all I's pointer. If they are the same, the AC is set to all I's, 
otherwise it is set to 0. This is then stored in a temporary storage 
location. 

g. The contents of the location indicated by the memory pointer are 
then obtained and compared against the contents of the temporary 
storage location. If they are the same, the program goes on to 
(h). If they are different, the error typeout routine is called after 
which the program goes on to (h) . 

h. The memory location pointer is then incremented and checked 
to see if it is at the upper limit. If it is not, the program goes 
to (f). If the pointer is at the upper limit, the program goes to (i). 

i. A check Is then made to see if the bel! should be rung (switch 1). 

j. A check is then made to see if the current location should be looped 
upon. If not, the program goes to (I). If the current location should 
be looped upon, the program goes to (k). 

k. If there was no I's in O's error, the location containing Ts is 
cleared, and control goes to (d) . If there was a 1 's in O's error, 
the program goes to (c) . 

I. If there was a I's in O's error, the all I's pointer is incremented, and 
if it is not the upper limit, the program goes to (c) . If it is the upper 
limit, the program goes to (m). If there was no I's in O's error, the 
location containing all I's is cleared, the all Ts pointer is incremented, 
and if not the upper limit, control goes to (d) . If it is the upper 
limit, control goes to (m) . 

m. A check is then made to see if the test should be repeated (switch 5). 
If so, control goes to (b) . If the test is not repeated, control goes 
to (n) . 

n. A check is made to see if all tests should be repeated (switch 7). If 
so, control goes to 8. 1 (a). If all tests are not to be repeated, the 
computer halts. 
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PfftTE 



M. A.T. 



07200 



^17201^ 


777774 


1^7201 


1^47745 


0720? 


760000 


07203 


047744 


07204 


207746 


07205 


047465 


07206 


207764 


07207 


047754 


07210 


147756 


07211 


207756 


07212 


067756 


07213 


047761 


07214 


227756 


07215 


547756 


07216 


607221 


07217 


740001 


07220 


107453 


07221 


750004 


07222 


507747 


07223 


740200 


07224 


607211 


07225 


207756 


07226 


740001 


07227 


067756 


07230 


047761 


07231 


227756 


07232 


740001 


07233 


547756 


07234 


607237 


07235 


740001 


07236 


107453 


07237 


750004 


07240 


507747 


07241 


740200 


07242 


607225 


07243 


750004 


07244 


507750 


07245 


740200 


07246 


607211 


07247 


107556 


07250 


447756 


07251 


207756 


0725? 


547762 


07253 


741VJ00 


07254 


607212 


07255 


107622 


07256 


607210 



.TITLE M.A.T. 
/ 
/MEMORY AODRESS TEST 

.FULL 

.LOC 7200 
/INDIVIDUAL LOCATION TEST 

LAW 17774 /INITIALIZE LOOP 

OAC COUNTl 
FIRST LAW 

OAC COUNT /COUNTER 

LAC JMPT 

DAC CHANGE /CHAnGE 

LAC 22?i 

OAC PNTR /AND MESSAGE POINTER 

DZM point /ZERO POINTER 

LAC POINT /GET ADDRESS TO BE STORED 

/AND STORE IT IN 
TEMP 



SECOND 



OAC« POINT 

OAC TEMP /AND 

LAC« POINT 

Sao POINT /AND 

JMP ,+3 

CMA 

JMS ERROR 

LAS 

AND MASKl 

SZa 

JMP 

LAC 

CMA 

OAC» POINT 

OAC TEMP 

LAC» POINT 

CMA 

POINT 

.♦3 



ITSELF 



/GET The number written in memory 

CHECK IT AGAINST ITSELF 



FIRST+7 
POINT /NO, 



GET 



/ALL OK, 
/ERROR 



/LOOP ON CURRENT NUMBER? 
/YES, LOOP 
ADDRESS TO BE TESTED 

/STORE COMPLEMENT 

/GET NUMBER STORED 



SAD 
JMP 
CMA 
JMS 
LAS 
AND 
SZA 
JMP 
LAS 
AND 
SZa 
JMP 
JMS 



/AND CHECK IT 
/ALL 



ERROR 
MASKl 
SECOND 
MASK2 



OK 
/ERROR 



/LOOP ON CURRENT NUMBER? 
/YES. LOOP 



/LOOP ON CURRENT LOCATION? 
/YES, LOOP 



FIRST+7 

BELL /BELL AFTER N PaSSeS? 
IS? POINT /INCREMENT POINT FOR 
LAC POTNT /NEXT LOCATjON 

UPLIM /Is IT THE UPPFR LIMIT? 

/YES, SKIP 

FlRST+10 /NO, TFST NEXT LOCATION 

L00P3 /REPEAT TEST? 

FIRST+6 /YES 



SAD 
SKP 
JMP 
JMS 
JMP 

.EJECT 



PAGE 



M.A.T, 



07257 


207746 


07?60 


047465 


fl726l 


207765 


07262 


047754 


07263 


147756 


07?64 


207756 


07265 


067756 


07266 


547763 


07267 


607272 


07270 


447756 


07271 


607264 


07272 


147756 


07273 


207756 


07274 


047761 


07275 


227756 


07276 


547756 


07277 


741000 


07300 


107453 


07301 


547763 


07302 


607305 


07303 


447756 


07304 


607273 


07305 


107572 


07306 


107622 


07307 


607263 



/FORWARD 

/ 

THIRD 



WRITE- READ TEST 



FOURTH 



LAC 

nAc 

LAC 
OAC 

lac 

OAC« 

Sad 

JMP 

1S2 

JMP 

d2H 

LAC 

OAC 

LAC» 

SAD 

SKP 

JMS 

SAO 

JMP 

IS? 

JMP 

JMS 

JMS 

JMP 



JMPT /INITIALIZE 

CHANGE /CHANGE 

iU2 

PNTR /AND MESSAGE POINTER 

POINT /2ER0 POINTER 

POINT /gET nUmBER To be STORED 

POINT /STORE IT 

UPLIMl /WAS IT THE UPPER LIMIT7 

.+3 /YES 

POINT /NO, INCREMENT POINT 



ThIRD+5 /GO 

POINT /CLEAR POINT 
POINT 
TEMP 

POINT 
POINT /CHECK IT 



BACK AND STORE 



ERROR /ERROR 
UPLIMl 

.♦3 

POINT /NO, 

FOURTH+1 



/GET WORD STORED 
/CORRECT, SKIP 
LIMIT 



/UPPER 
/YES 
INCREMENT POINT 

/GO BACK AND 



CHECK NEXT LOCATION 



BELLI /RING BELL? 

L00P3 

THIRD+4 /YES 



.EJECT 



PAGE 



M.A.T. 



^7311^ 


?07746 


07311 


1^47465 


5^7312 


?07766 


07313 


PI47754 


«7314 


?07763 


07315 


047756 


«7316 


740001 


07317 


067756 


07320 


740001 


07321 


741200 


07322 


607326 


07323 


750001 


07324 


347756 


07325 


607315 


07326 


207763 


07327 


047756 


07330 


740001 


07331 


047761 


07332 


227756 


07333 


740001 


07334 


547756 


07335 


607340 


07336 


740001 


07337 


107453 


07340 


751201 


07341 


607344 


07342 


^47756 


07343 


607327 


07344 


107572 


07345 


107622 


07346 


607314 


07347 


750004 


07350 


507752 


07351 


740200 


07352 


607204 



/REVERSE 

/ 

FIFTH 



COMPLEMENT WRITe-READ TeST 



/ 

SIXTH 



JMPT /INITIALIZE 

CHANGE 

2223 

pNTR /AND 

UPLIMi 

POinT /ArgD 



LAC 

OAC 

LAC 

DAC 

LAC 

DAC 

CMA 

DAC» POINT 

CMA 

SNA 

JMP SIXTH /YES, 

CLA.'CMA 

Tad POINT /SUBTRACT 

JMP Flf-TH + 5 



/CHANGE 
MESSAGE POINTER 



POINT (To HIGHEST LOCATION) 

/COMPLEMENT ADDRESS IN POINT 
/AND STORE IT 
/RECOMPLEMENT IT 
/IS IT 0? 
DONE DEPOSITING 

/NO, SET AC=-1 

1 FROM POINT 

/GO BACK TO STORE 



UPLIMI 
POINT /POINT 

TEMP 
POINT 



LAC 

OAC 

CMA 

DAC 

LAC« 

CMA 

SAD 

JMP 

CMA 

jms error 
sna!cla:cma 



POINT 
.+3 



/CHECK IT 



/RE-INITIALI2E 



/GET CONTENT OF 
/COMPLEMENT IT 

/ALL OK. 
/ERROR 



ADDRESS 



JMP 

tao 

JMP 
jMS 
JMs 
JMP 
LAS 
AND 
SZa 
JMP 



/CHECKED ALL MEMORY LOCATIONS 
.+3 /YES 

POINT /NO, SUBTRACT 1 FROM POINT 



SIXTH+1 
BELLI /BELL? 
LOOP3 /REPEAT 

FIFTH+4 

MASK4 



/GO BACK AND CHECK NEXT 

TEST? 
/YES 



FIRST*2 



/SKIP 
/YES 



NEXT TEST? 



.EJECT 



PAGE 



H.A.T. 



("7,-553 


207746 


07354 


(^47465 


07355 


207767 


07356 


047754 


07357 


147755 


07360 


147756 


0736I 


167756 


07362 


447756 


07363 


207756 


07364 


547762 


07365 


751001 


07366 


607361 


07367 


067755 


07370 


147756 


0737I 


207756 


07372 


547755 


07373 


751000 


07374 


750001 


07375 


744001 


07376 


047761 


07377 


227756 


07400 


547761 


07401 


741000 


07402 


107453 


07403 


447756 


07404 


207756 


07405 


547762 


07406 


741000 


57407 


607372 


074I0 


107556 


07411 


750004 


07412 


507750 


07413 


741200 


07414 


607424 


07415 


207453 


07416 


547743 


07417 


607422 


07420 


167755 


37421 


607365 


07422 


I47453 


07423 


607360 


07424 


207453 


07425 


547743 


07426 


741000 


07427 


607436 


07430 


147453 



/WRITE 1 

/ 

SEVENH 



'S IN A riELO OF 0'S 



EIGHTH 



LAC 
nAC 
LAC 
nAC 

nZM 
n?M 
nZM 
isz 

LAC 
SAD 
SKP 
JMP 
DAC 
OZM 
LAC 
SAD 
SKP 
CLA 

CMa 
DAC 
LAC 
SAD 
SKP 
JMS 
ISE 
LAC 
SAD 
SKP 
JMP 
JMS 
LAS 
AND 
SNA 
JMP 
LAC 
SAD 
JMP 
DZM 
JMP 
OZM 
JMP 
LAC 
SAD 
SKP 
JMP 
D?M 
.EJ 



JMPT 

CHANGE 

Z224 

PNTr 

PNTRi 

POINT 

» POINT 
POINT 
POINT 
UPLIM 

!CLA!CM 

.-5 

• PNTRi 
POINT 
POINT 
PNTRI 

!ClA 
•CMA 
!CLL 
TEmP 

• POINT 
TEMP 

ERROR 
POINT 
POINT 
UPLIM 

EIGHTH 
BELL 



/INITIALIZE 

/CHANGE 
/AND MESSAGE 
/POINTER 

/ZERO ALL ONES POINTER 
/ZERO POINT 

/CLEAR MEMORY 



/store i's in 1 memory location 
/zero point 
/get point 
/Same aS pntri 

/yEs, Clear ac anO skip 

/NO, SEt AC jO -1 

/COMPLEMENT AC, IF POINT = PNTRI 
/AC s I'S. OTHERWISE 

/PICK uP CONTENTS OF MEMORY 
/GOOD DATA? 

/YES 
/NO 

/INCREMENT POINT 
/TO NEXT LOCATION 
/UPPER LIMIT? 

/YES 
♦2 'N9, GO BACK TO TfST NEXT LOCATION 
/RING BELL? 



MASK2 

/LOOP ON CURRENT LOCATION? 
.+10 /NO 

ERROR /YES, GET C(ERROR) 
CONST /WAS THERE A I'S IN 0'S ERROR 

.+3 /YES 

» PNTRi /NO, ZERO I'S LOCATION 

EIGHTH-3 /GO BACK TO STORE I'S 

ERROR /ZERO ERROR 

SeVeNH+5 /go BACK To ZERO MEMORY FIRST 

ERROR 

CONST /WAS THERE A I'S IN 0'S ERROR? 
/YES. SKIP 

.+7 /NO 

ERROR /ZERO ERROR 
ECT 



PAGE 



M. A .T. 



P)7433 


447755 


07432 


?07755 


5^7433 


=^47762 


fl7434 


607444 


(17435 


607360 


07436 


167755 


(57437 


447755 


0744PI 


207755 


IZI7441 


547762 


07442 


741000 


07443 


607365 


07444 


107622 


07445 


607357 


07446 


750004 


07447 


507753 


07450 


740200 


07451 


740040 


07452 


607204 



IS? PNTRi /INCREMENT ALL I'S 

LAC PNTRI /POINTER TO NEXT LOCATION 

Sad uplim /upper limit? 

JMP .+10 /YES 

JmP SEVEnH+5 /no 

D2M» PNTRi /2ER0 LOCATION CONTAINING ALL 1<S 

IS2 PNTRi /INCREMENT ALL I'S 

LAC PNTRI /POINTER TO NEXT LoCATlON 

SAD UPLIM /UPPER LIMIT? 

SKP /YES 

JMP EIGHTH-3 /NO 

JMS LOOP3 /REPEAT Test? 

JMP SEVENH+4 /YES 

LAS 

And MASK5 

Sea /halt? 

XX /YES 

JMP FIRSTt2 /REPEAT ALL TESTS 

.EJECT 



PAGE 



". A .T , 



?745? 


t^00k?00 


(17454 


5t476?2 


5^7455 


750004 


«7456 


742010 


07457 


740100 


07460 


607463 


1^7461 


760207 


PI7462 


107606 


07463 


741400 


07464 


607501 


07465 


607506 


07466 


207756 


07467 


107536 


07470 


760240 


07471 


107606 


07472 


207761 


07473 


107536 


07474 


760240 


07475 


107606 


07476 


207622 


07477 


107536 


07500 


107614 


07501 


750004 


07502 


741100 


07503 


740040 


07504 


207756 


07505 


627453 


07506 


760000 


07507 


047465 


07510 


107614 


07511 


107516 


07512 


207770 


07513 


047754 


07514 


107516 


07515 


607466 



/ERROR PRINT ROUTINE 

/ 

ERROR ? 

OAC ANSWER 

LAS 

RTL 

SMA 

JMP .+3 

LAW 207 

JMS TYPE 

S2L 

JMP HALTl /NO 



CHANGE 



HALTl 



/ 

TITLE 



/STORE BAD NUMBER 



/RING BELL? 
/NO 



/PRINT ERRORS 
/YES 



JMP TITLE 

LAC POINT 

JMS PRINT /TYPE OUT ADDRESS 

LAW 24fi 

JMS TYPE /i SPACE 

I h f* T C M P 

JMS PRINT /TYPE OUT CORRECT ANSWER 

LAW 240 

JMS TYPE /I SPACE 

LAC ANSWER 

jMs Print /type Out bad answer 

JMS CRLE 

LAS 

SPA /HALT ON ERROR? 

XX /YES 

LAC POINT /RESTORE AC 



JMP» ERROR 

LAW 

DAC CHANGE 
JMS CRLF 
JMS TmESSI 
LAC 2225 
OAC PNTR 
JMS TMESSl 
JMP CHANGE+1 
.EJECT 



/EXIT 

/CHANGE CHANGE 

/TYpE OUT APPROPRIATE MESSAGE 

/TYPE OUT REST OF HEADER 



PAGE 



M. A . T . 







/HESSAGE 

/ 


PrINt SUBROUTINE 


07S16 


{«0P0PI0 


TMESSi 







KTSl? 


227754 




LAC 


» P^)TR 


P)752« 


742020 




RTR 




H7'521 


742020 




RTR 




«^7522 


742020 




RTR 




(^TBS^ 


742020 




RTR 




«7524 


740020 




RAR 




?I7525 


107606 




JmS 


TYPE 


07526 


547757 




SAO 


ruhout 


PI7627 


627516 




JMP 


» TMESSi 


07530 


227754 




LAC 


» PNTR 


07531 


107606 




JHS 


TYPE 


07532 


547757 




SAD 


RUBQUT 


07533 


627516 




JMP 


» TMESSl 


07534 


447754 




IS? 


PNTR 


07535 


607517 


/ 


JMP 


TMFSSi+i 






/ 

/PRINT CONTENTS OF AC IN ( 


07536 


000000 


PRINT 







07537 


047556 




OAC 


TEMi 


07540 


777772 




LAW 


17772 


07541 


047572 




DAC 


TALLY 


07542 


207556 




LAC 


TEMi 


07543 


740010 




RAL 




07544 


740010 




RAL 




07545 


742010 




RTL 




07546 


047556 




OAC 


TEMi 


07547 


507760 




AND 


SEVEN 


07550 


247742 




XOR 


ASKII 


07551 


107606 




JMS 


Type 


07552 


207556 




LAC 


TEMi 


07553 


447572 




IS? 


TALLY 


07554 


607544 




JMP 


PRINT+6 


07555 


627536 




JMP« 


PRINT 



OCTAL 



■EJECT 
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?!07556 



fl7556 


P!00000 


PI7557 


750004 


C17560 


742010 


07561 


741100 


07562 


627556 


07563 


447744 


07564 


627556 


07565 


407202 


07566 


047744 


07567 


760207 


07570 


107606 


07571 


627556 




007572 


07572 


000000 


07573 


750004 


07574 


742010 


07575 


741100 


07576 


627572 


07577 


447745 


07600 


627572 


07601 


407200 


07602 


047745 


07603 


760207 


07604 


107606 


07605 


627572 


07606 


000000 


07607 


507757 


07610 


700406 


07611 


700401 


07612 


607611 


07613 


627606 


07614 


000000 


07615 


760215 


07616 


107606 


07617 


760212 


07620 


107606 


07621 


627614 




007622 


07622 


000000 


07623 


750004 


07624 


507751 


07625 


741200 


07626 


447622 


07627 


627622 



temi=. 




/SOME USEFUL SUbROUTII 


/ 




BELL 


(^ 




LAS 




RTL 




SPA 




jmp» bell 




IS2 COUNT 




JMP« BELL 




XCT FIRST 




DAC COUNT 




LAW 207 




JMS TYPE 




JMP» BELL 


/ 




TALLYs. 




BELLI 







LAS 




RTL 




SPA 




jmp« belli 




IS? COUNTl 




JMP» BELLI 




XCT FIRST-2 




DAC COUNTl 




LAW 207 




JMS TYPE 




JMP» BELLI 


/ 




TYPE 







AND RUBOUT 




TLS 




TSF 




JMP .-1 




JMP» TYPE 


/ 




CRLF 







LAW 215 




JMS TYPE 




LAW 21? 




JMS TYPE 




JMP» CRLF 


ANSWERS. 




L00P3 







LAS 




AND MASK3 




SNA 




IS2 L00P3 




JMP» LOOPS 




.EJECT 



PAGE 



M. A.T, 







/ERROR 

/ 
MESSl 


MESSAGE 1 


51763<' 


311316 


3II3I6 


07631 


304311 




301311 


(»7632 


326311 




326311 


07633 


304325 




3H43?5 


07634 


301314 




301314 


07635 


240314 




24(?I314 


07636 


317303 




317303 


07637 


301324 




301324 


07640 


311317 




311317 


07641 


316240 




316240 


07642 


324305 




324305 


07643 


323324 




323324 


07644 


215212 




215212 


07645 


377000 


/ 


377000 






/ 

/ERROR 

/ 

MESS2 


MESSAGE 2 


07646 


306317 


306317 


07647 


322327 




322327 


07650 


301322 




301322 


07651 


304240 




304240 


07652 


327322 




327322 


07653 


311324 




311324 


07654 


305255 




305255 


07655 


322305 




322305 


07656 


301304 




301304 


07657 


240324 




240324 


07660 


305323 




305323 


07661 


324215 




324215 


07662 


212377 




212377 
.EJECT 



/I.N 
/D. I 

/v. I 

/D.U 

/A,L 

/SP.L 

/O.C 

/A.T 

/I.O 

/N.SP 

/T.E 

/S.T 

/CR.LF 

/RO 



/F.O 

/R.W 

/A,R 

/D.SP 

/W.R 

/I.T 

/E,- 

/R.E 

/A.O 

/SP'T 

/E.s 

/T.Cr 

/LE.rO 
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/ERROR MESSAGE 3 
/ 

MESS., 32^305 


Pi7663 


^^^si^s 


07664 


326305 


326305 


07665 


32?3?3 


32?323 


07666 


305255 


305255 


07667 


303317 


303317 


07670 


315320 


315320 


07671 


314305 


314305 


07672 


315305 


315305 


07673 


316324 


316324 


<il67^ 


240327 


240327 


07675 


322311 


322311 


07676 


324305 


324305 


Tilbll 


255322 


255322 


07700 


305301 


305301 


07701 


304240 


304240 


07702 


324305 


324305 


07703 


323324 


323324 


07704 


215212 


215212 


07705 


377000 


377000 
.EJECT 



/RE 



/v 


E 


/R 


S 


/£ 


- 


/C 





/M 


p 


/L 


E 


/M 


E 


/N 


T 


/SP w 


/R 


I 


/T 


E 


/- 


R 


/E 


A 


/D 


SP 


/T 


E 


/S 


T 


/CR LF 


/RO 
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PI7706 


327322 


07707 


,^11324 


(^77l(^ 


305240 


07711 


317316 


«7712 


305323 


07713 


240311 


07714 


316240 


07715 


301240 


07716 


306311 


07717 


305314 


07720 


304240 


07721 


317306 


07722 


240332 


07723 


305322 


07724 


317323 


07725 


?15212 


07726 


377000 


07727 


301304 


07730 


304322 


07731 


305323 


07732 


323240 


07733 


307317 


07734 


317304 


07735 


240240 


07736 


240302 


07737 


301304 


07740 


215212 


07741 


377000 



/ERROR MESSAGE 4 

/ 

MESS4 32^322 
311 3?4 
3^524« 
317316 
305323 
24(^311 
316240 
301240 
306311 
305314 
304240 
317306 
240332 
305322 
317323 
215212 
377000 

/ 

/REST OF HEADER 



MESS5 



301304 
304322 
305323 
323240 
307317 
317304 
240240 
240302 
301304 
215212 
377000 
.EJECT 



/W,R 

/I.T 

/E.SP 

/O.N 

/E,s 

/SP. I 

/N.SP 

/A.SP 

/F,I 

/E.L 

/D.SP 

/Q.F 

/SP'Z 

/E.R 

/0,S 

/CRLF 

/RUBOUT 



/A,D 

/D.R 

/E.S 

/S.SP 

/G.O 

/0,0 

/SP.SP 

/SP»B 

/A,D 

/Cr.LF 

/RO. 
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/CONSTANTS AND VARIABLES 


0774? 


300260 


ASKII 


26t» 


0774:^ 


007403 


CONST 


EIGHTH+13 


07744 


ffl0«000 


COUNT 


? 


07745 


000000 


COUNTl 





07746 


607506 


JMPT 


JMP TITLE 


07747 


040000 


MASKl 


40000 


07750 


020000 


MASK2 


20000 


07751 


010000 


MASKS 


10000 


0775? 


004000 


MASK4 


4000 


07753 


002000 


MASK5 


2000 


07754 


000000 


PNTR 





07755 


000000 


PNTRi 





07756 


000000 


POINT 





07757 


000377 


RUBOUT 


377 


07760 


000007 


SEVEN 


7 


07761 


000000 


TEMP 





07762 


007167 


UPLIM 


riRST-13 


07763 


007166 


UPLIMi 


FIRST-14 


07764 


007i&30 


2Z21 


MESSl 


07765 


007646 


22Z2 


MESS2 


07766 


007663 


2223 


MESS3 


07767 


007706 


2EZ4 


MESS4 


07770 


007727 


2225 


MESS5 




000000 




.END 

NO ERROR LINES 
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M, 


ANSWER 


0076?2 


ASKI I 


07742 


BELL 


07556 


BELLI 


07572 


CHANGE 


H7465 


CLOF 


700004 


CLON 


700044 


clsf 


700001 


CONST 


07743 


COUNT 


07744 


COUNTl 


07745 


CRLF 


07614 


EIGHTH 


07370 


ERROR 


07453 


FIFTH 


07310 


FIRST 


07202 


FOURTH 


07272 


HALTl 


07501 


JMPT 


07746 


KRB 


700312 


KSF 


700301 


L00P3 


07622 


MASKl 


07747 


MASK2 


07750 


MASK3 


07751 


MASK4 


07752 


MASKS 


07753 


MESSl 


07630 


MESS2 


07646 


MESS3 


07663 


■MESS 4 


07706 


MESS5 


07727 


PCF 


700202 


PNTR 


07754 


PNTRl 


07755 


POINT 


07756 


PRINT 


07536 


PSA 


700204 


PSB 


700244 


PSF 


700201 


RCF 


700102 


RRB 


700112 


RSA 


700104 


RSB 


700144 


RSF 


700101 


RUROUT 


07757 


SECOND 


07225 


SEVEN 


07760 


SEVENH 


07353 


SIXTH 


07326 


TALLY 


007572 


TCF 


700402 


TEMP 


07761 


TEMl 


007556 


THIRD 


07257 
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TITLF 

TLS 

TMESSl 

TSF 

TYPE 

UPLIM 

UPLIMI 

2ZE1 

2Z?2 

2ZZ3 

ZZZ4 

Z2Z5 



075(^6 
7f)04P)6 
07516 
700401 
07606 
07762 
07763 
07764 
07765 
07766 
07767 
07770 



PAGE 15 M. 


FIRST 


07202 


SECOND 


07225 


THIRD 


07257 


FOURTH 


07272 


FIFTH 


07310 


SIXTH 


07326 


SEVENH 


07353 


EIGHTH 


07370 


ERROR 


07453 


CHANGE 


07465 


HALTl 


07501 


TITLE 


07506 


TMESSl 


07516 


PRINT 


07536 


BELL 


07556 


TEMi 


007556 


RELLl 


07572 


TALLY 


007572 


TYPE 


07606 


CRLF 


07614 


ANSWER 


007622 


LOOPS 


07622 


MESSl 


07630 


MESS2 


07646 


MESS3 


07663 


MESS4 


07706 


MESS5 


07727 


ASKII 


07742 


CONST 


07743 


COUNT 


07744 


COUNTl 


07745 


JMPT 


07746 


MASKl 


07747 


MASK2 


07750 


MASK3 


07751 


MASK4 


07752 


MASKS 


07753 


PNtR 


07754 


PNTRl 


07755 


POINT 


07756 


RUBOUT 


07757 


SEVEN 


07760 


TEMP 


07761 


UPLIM 


07762 


UPLIMi 


07763 


Z2Z1 


07764 


7.i?2 


07765 


?ZZ3 


07766 


?Z24 


07767 


iU5 


07770 


CLSF 


700001 


CLOF 


700004 


CLON 


700044 


RSF 


700101 


RCF 


700102 
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PAGE 


1ft M. 


RSA 


70011^4 


RRB 


7HP1112 


RSR 


700144 


PSF 


700201 


PCF 


700202 


pSA 


700204 


PSB 


700244 


ksf 


700301 


KRB 


700312 


tsf 


700401 


TCP 


700402 


TLS 


700406 



A.T, 



